type
 HResult = LongWord;
 
 DWord = LongWord;
 
 PChar = ^Char;
 
 PPChar = ^PChar;
 
 PByte = ^Byte;
 PWord = ^Word;
 PDWord = ^DWord;
 PQWord = ^QWord;
 
 PLongWord = ^LongWord;
 
 PSmallInt = ^SmallInt;
 PShortInt = ^ShortInt;
 PLongInt = ^LongInt;
 PInt64 = ^Int64;
 
 PPointer = ^Pointer;
 
 TProcedure = Procedure;